'Basically gets the path for the default browser.

Function defaultbrowser() As String
        defaultbrowser = My.Computer.Registry.GetValue("HKEY_CLASSES_ROOT\HTTP\shell\open\command", "", "Not Found")
        Dim shitplit() As String = Split(defaultbrowser, """")
        Return shitplit(1)
End Function